home *** CD-ROM | disk | FTP | other *** search
/ Mac Action 1996 January / mac-action-07.iso / mac / Inside Action / Beatrix Potter / Peter Rabbit / DSTORIES.DXR / 00005.ls < prev    next >
Encoding:
Text File  |  1995-07-13  |  377 b   |  13 lines
  1. on mouseUp
  2.   global gPersonalNameCast, gPersonalIconCast, gNameCastCount, gIconCastCount
  3.   set newCast to gPersonalIconCast + 1
  4.   if newCast > gIconCastCount then
  5.     set newCast to 1
  6.   end if
  7.   set the castNum of sprite 5 to 500 + newCast
  8.   set the castNum of sprite 6 to 210 + newCast
  9.   set gPersonalIconCast to newCast
  10.   set gPersonalNameCast to newCast
  11.   updateStage()
  12. end
  13.